home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / cbv226.zip / SURVEY.Q-A < prev   
Text File  |  1990-06-01  |  3KB  |  126 lines

  1. ClearScreen
  2. ChangeColor 14 0
  3. Display "New User Survey|"
  4. ChangeColor 3 0
  5. Display "~~~~~~~~~~~~~~~||"
  6. Display "This information should remain confidential to the Sysop, however|"
  7. Display "this is not guaranteed.  Completing this survey is optional and is|"
  8. Display "used to calculate averages pertaining to the users of the system.|"
  9. Display "Do not complete this survey if you feel any of the submitted in-|"
  10. Display "formation would be determental to your business, reputation, etc!|"
  11. Display "You are given the choice whether you want to save your answers or|"
  12. Display "not at the end of the survey.|"
  13. Display "||(P.S.  This is not a test! -grin-)||"
  14.  
  15. ChangeColor 14 0
  16. Display "Please choose your computer below:|"
  17. ChangeColor 3 0
  18. Display "1. IBM PC/XT or CLONE|"
  19. Display "2. IBM AT    or CLONE|"
  20. Display "3. 80386 SYSTEM|"
  21. Display "4. PS/2|"
  22. Display "5. Other MS-DOS based system|"
  23. Display "6. Non MS-DOS system|? "
  24. GetChoice 123456 1
  25.  
  26. ChangeColor 14 0
  27. Display "|Do you own a laptop or portable (Y/N)? "
  28. ChangeColor 3 0
  29. GetChoice YN 2
  30.  
  31. ChangeColor 14 0
  32. Display "|What is your age (please be honest)? "
  33. ChangeColor 3 0
  34. Ask 2 3
  35.  
  36. ChangeColor 14 0
  37. Display "|What is your sex (M/F)? "
  38. ChangeColor 3 0
  39. GetChoice MF 4
  40.  
  41. ChangeColor 14 0
  42. Display "|Do you do any programming (Y/N)? "
  43. ChangeColor 3 0
  44. GetChoice YN 20
  45.  
  46. If 20 = "Y"
  47. ChangeColor 14 0
  48. Display "|What language(s) do you program in?|: "
  49. ChangeColor 3 0
  50. Ask 65 5
  51. EndIf
  52.  
  53. ChangeColor 14 0
  54. Display "|Do you run a BBS (Y/N)? "
  55. ChangeColor 3 0
  56. GetChoice YN 19
  57.  
  58. If 19 = "Y"
  59. ChangeColor 14 0
  60. Display "|What is the name and number of your BBS?|: "
  61. ChangeColor 3 0
  62. Ask 65 6
  63. ChangeColor 14 0
  64. Display "|Is it OK to add your system to our BBS list (Y/N)? "
  65. ChangeColor 3 0
  66. GetChoice YN 18
  67. EndIf
  68.  
  69. ChangeColor 14 0
  70. Display "|What are your other interests, hobbies, favorite activities,|"
  71. Display "etc...  Non-computer stuff...  (2 lines)|"
  72. ChangeColor 3 0
  73. Display "1: "
  74. Ask 65 7
  75. ChangeColor 3 0
  76. Display "2: "
  77. Ask 65 8
  78.  
  79. ChangeColor 14 0
  80. Display "|What do you look for on most BBS's?|: "
  81. ChangeColor 3 0
  82. Ask 65 9
  83.  
  84. ChangeColor 14 0
  85. Display "|How long have you been calling BBS's?|: "
  86. ChangeColor 3 0
  87. Ask 65 12
  88.  
  89. ChangeColor 14 0
  90. Display "|What is the name of your terminal/telecom program?|: "
  91. ChangeColor 3 0
  92. Ask 20 11
  93.  
  94. ChangeColor 14 0
  95. Display "|End of survey!  Do you want the system to R)ecord or D)iscard|"
  96. Display "your answers (R/D)? "
  97. ChangeColor 3 0
  98. GetChoice RD 20
  99.  
  100. If 20 = "R"
  101. PostInfo
  102. OutputAnswer "Computer  : " 1
  103. OutputAnswer "Laptop    : " 2
  104. OutputAnswer "Age       : " 3
  105. OutputAnswer "Sex       : " 4
  106. OutputAnswer "Programing: " 5
  107. OutputAnswer "BBS       : " 6
  108. OutputAnswer "Ok to list: " 18
  109. OutputAnswer "Interests : " 7
  110. OutputAnswer "          : " 8
  111. OutputAnswer "Looks for : " 9
  112. OutputAnswer "How long  : " 12
  113. OutputAnswer "Terminal  : " 11
  114. ChangeColor 15 0
  115. Display "|Answers saved!|"
  116. ChangeColor 7 0
  117. EndIf
  118.  
  119. If 20 = "D"
  120. ChangeColor 15 0
  121. Display "|Answers discarded.|"
  122. ChangeColor 7 0
  123. EndIf
  124.  
  125. SetFlag A8 OFF
  126.